## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----setup--------------------------------------------------------------------
library(harmony)
library(ggplot2)




## -----------------------------------------------------------------------------

## Old

## 
## HarmonyMatrix(bos, opt.args = list(lambda = c(0,1)))






## -----------------------------------------------------------------------------
## Source required data
## data("celllines")

## cell_lines <- zeros()
## pbmc <- CreateSeuratObject(counts = , project = "jurkat", min.cells = 5)

## Separate conditions

## pbmc@meta.data$stim <- c(rep("STIM", ncol(stim.sparse)), rep("CTRL", ncol(ctrl.sparse)))

